home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abk.d64 / cat-game (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  21KB  |  650 lines
  1. 1 PRINT"[147]":RESTORE:CLR
  2. 2 POKE53280,0:GOSUB8000:POKE53281,11
  3. 3 GOSUB4500
  4. 4 DIMRC(NC),LR(65),AR(NC),X(19),C(NC),B(46)
  5. 105 TI$="000000"
  6. 110 POKE53280,7:POKE53281,0
  7. 120 LR=1:G=0:E=0:X=NC:VB=3:M=1
  8. 130 D=1:YP=101:YS=101:YM=101:VS=0:VZ=0:GS=0:SB=0:CR=0:NS=0:GM=0:MR=0:FD=0
  9. 140 FORI=0TO65:LR(I)=0:NEXT
  10. 150 FORI=1TOX:N=INT(3*RND(1)+1)
  11. 160 IFI=1THENN=3
  12. 170 FORJ=1TON
  13. 180 RC=INT(64*RND(1)+1):PRINT""RC:PRINT"[145][145]"
  14. 185 IFTI$="000020"THENGOSUB15000:GOTO105
  15. 190 IFLR(RC)<>0THEN180
  16. 200 LR(RC)=I
  17. 210 NEXTJ
  18. 220 RC(I)=INT(524287*RND(1)):C(I)=0
  19. 230 NEXTI:C(LR)=1:PRINT"[147]"
  20. 240 RC(1)=24576:FORI=1TO19:X(I)=0:NEXT
  21. 244 IFD=OLTHEN3050
  22. 246 IFWR=0THENPOKESV+21,1:POKESV,97:POKESV+1,200
  23. 250 IF RND(1)<.01THENGOSUB2030:FORI=1TO20:LR(I)=INT(X*RND(1)+1):NEXT
  24. 260 IFRND(1)<.01THENGOSUB2030:FORI=1TO20:LR(I)=0:NEXT
  25. 268 IFX(1)*X(12)<>1THEN278
  26. 269 ZH=RND(1)
  27. 270 IFX(1)*X(12)=1ANDZH<.4THENGOSUB2020
  28. 271 IFX(1)*X(12)=1ANDZH>=.4THENGOTO278
  29. 272 IFMR>0THENMR=MR-1:YP=YP-(YP/4):GOTO278
  30. 273 IFMR=0ANDX(1)*X(12)=1THENYP=INT(.5*YP)
  31. 278 IFX(9)*X(11)<>1THEN290
  32. 279 GG=RND(1)
  33. 280 IFX(9)*X(11)=1ANDGG<.4THENGOSUB2040
  34. 281 IFX(9)*X(11)=1ANDGG>=.4THENGOTO290
  35. 282 IFGM>0THENGM=GM-1:YS=YS-(YS/4):GOTO290
  36. 283 IFGM=0ANDX(9)*X(11)=1THENYS=INT(.5*YS)
  37. 290 YS=YS-D:YM=YM-D:YP=YP-D:GOSUB6300
  38. 301 IFYM<=0THENYP=0:YS=0
  39. 302 IFCS>1THEN306
  40. 304 IFYP<30ORYS<30ORYM<30THENCS=CS+1:POKESV+21,0:GOSUB7000
  41. 306 IFYP>0ANDYS>0THEN319
  42. 310 IFYP<=0ORYS<=0THENPRINT"[147]YOU ARE NOW A PERMANENT RESIDENT HERE!":GOSUB17000
  43. 311 INPUT"PLAY AGAIN (Y/N)";D$:POKESV+21,0
  44. 312 IFD$="Y"THENRUN
  45. 314 IFD$<>"Y"THENEND
  46. 315 GOSUB3000
  47. 319 IFD=OLANDLR=OCTHEN3100
  48. 320 GOSUB20109:PRINT"";:IFWR=0THENPOKESV+21,1:POKESV,97:POKESV+1,200
  49. 321 IFVB=3THENPRINT"[159][211] [211] [211] COMMANDS:R=RING:D=DESCEND:S=STATUS";
  50. 322 IFVB=3THENPRINT"  T=TRADE:H=HELP:E=EXIT:*=ORB AT:A=FIGHT[146]";
  51. 323 IFVB=2THENPRINT"[159][211] [211]   COMMANDS:R=RING:D=DESCEND:S=STATUS";
  52. 324 IFVB=2THENPRINT"  T=TRADE:H=HELP:E=EXIT:*=ORB AT:A=FIGHT[146]";
  53. 325 IFVB=1THENPRINT"[159][211]     COMMANDS:R=RING:D=DESCEND:S=STATUS";
  54. 326 IFVB=1THENPRINT"  T=TRADE:H=HELP:E=EXIT:*=ORB AT:A=FIGHT[146]";
  55. 327 PRINT"                                       ":PRINT"[145][145][145][145]"
  56. 339 PRINT"YOU ARE IN CHAMBER";LR;"ON LEVEL";D
  57. 340 GOSUB350:GOTO410
  58. 350 FORI=1TOX:AR(I)=0:NEXT
  59. 360 FORI=1TO64
  60. 370 IFLR<>LR(I)THEN400
  61. 380 IFLR(I+1)<>0ANDLR(I+1)<>LRTHENAR(LR(I+1))=1
  62. 390 IFLR(I-1)<>0ANDLR(I-1)<>LRTHENAR(LR(I-1))=1
  63. 400 NEXT:RETURN
  64. 410 N=RC(LR)
  65. 420 FORI=1TO19:Y=INT(N/2):X(I)=2*(N/2-Y):N=Y:NEXT
  66. 430 IFX(2)=0THENVZ=0:GOTO479
  67. 440 IFF=1THEN459
  68. 441 VZ=D*(X(3)+2*X(4)+4*X(5)+LR)
  69. 442 VS=D*(X(6)+2*X(7)+4*X(8)+LR)
  70. 459 GOSUB8300:RU=3
  71. 460 POKE56035,4:POKE1763,22:POKE56075,4:POKE1803,1:POKE56115,4:POKE1843,13
  72. 461 POKE56155,4:POKE1883,16:POKE56195,4:POKE1923,9:POKE56235,4:POKE1963,18
  73. 462 POKE56275,4:POKE2003,5
  74. 463 YM=YM-1
  75. 479 IFX(1)*X(12)=1ANDPEEK(1763)=22THENGOSUB8500:GOTO482
  76. 480 IFX(1)*X(12)=1THENGOSUB8400:POKE1403,26:POKE1443,15:POKE1483,13:POKE1523,2
  77. 481 GOTO482
  78. 482 IFX(1)*X(12)=1THENPOKE1403,26:POKE1443,15:POKE1483,13:POKE1523,2
  79. 483 IFX(1)*X(12)=1THENPOKE1563,9:POKE1603,5
  80. 494 IFX(9)*X(11)=1THENGOSUB14000
  81. 496 IFRND(1)<(.1*D)THENGOSUB1200
  82. 498 IFRND(1)<(.1*D)THENGOSUB1500
  83. 500 IFX(10)<>1THENT=0:MG=0:GOTO 530
  84. 510 T=X(11)+2*X(12)+4*X(13)+1
  85. 521 MG=T*LR*D+1
  86. 530 OW=X(15)+2*X(16)+4*X(17)+8*X(18)+1
  87. 540 IFOW>XTHENOW=1
  88. 550 IFOW=0THENOW=1
  89. 555 PRINT"                                       ":PRINT"[145][145]"
  90. 560 IFX(14)=0OROW=LRTHEN578
  91. 570 GOSUB15000:PRINT"[153]A ONE-WAY TUNNEL TO CHAMBER";OW;"[157] IS OPEN [146]"
  92. 577 POKE55454,13:POKE1182,160:POKE55455,13:POKE1183,160:GOTO579
  93. 578 PRINT"[158]                                       ":POKE55455,7:POKE1183,160
  94. 579 IFX(19)*X(13)=1THENGOSUB11000
  95. 585 PRINT"                                       ":PRINT"[145][145]"
  96. 590 PRINT"[158]GOLD=[157]";MG;"FROM CHAMBER";LR;
  97. 594 PRINT"YOU MAY GO TO"
  98. 595 PRINT"                                       ":PRINT"[145][145]"
  99. 600 FORI=1TOX
  100. 610 IFAR(I)=1ANDI<>LRTHENPRINTI;
  101. 611 NEXTI
  102. 615 FG=RND(1):FF=RND(1)
  103. 617 IFFF<.1THENGOSUB6200
  104. 620 IFFG<.1THENGOSUB6000
  105. 621 PRINT: PRINT"                                       ":PRINT"[145][145]"
  106. 622 PRINT"ENTER COMMAND, OR CHAMBER #";
  107. 625 INPUTMT$:IFMT$=""THENPRINT"[145][145]"       :GOTO622
  108. 626 IFMT$="*"THEN3600
  109. 631 IFMT$="H"THENPOKESV+21,0:POKESV+21,0:WR=0:WC=2:GOTO40000
  110. 633 IFMT$="S"THENPOKESV+21,0:WR=0:WC=2:GOTO7000
  111. 634 IFMT$="D"ANDX(19)*X(13)=1THEND=D+1:F=0:POKESV+21,0:WR=0:WC=2:GOTO140
  112. 636 IFMT$="R"ANDLR<>1THEN675
  113. 637 IFMT$="E"ANDLR=1THENPOKESV+21,0:GOSUB4100:WR=0:WC=2:GOTO7500
  114. 638 IFMT$="T"ANDLR=1THENPOKESV+21,0:WR=0:WC=2:GOTO720
  115. 639 IFMT$="A"ANDLR<>1THENM=0:GOSUB14500:RU=1:GOTO800
  116. 640 IFFG<.1ANDMT$="G"THENG=G+10:FG=1:PRINT"[145][145]":GOTO622
  117. 641 IFFF<.1ANDMT$="F"THENFD=FD+2:FF=1:PRINT"[145][145]":GOTO622
  118. 645 IFVAL(MT$)=STHENGOSUB8100:GOTO650
  119. 646 IFMT$=""THENPRINT"[145][145]":GOTO622
  120. 647 M=VAL(MT$):MT$="E":IFM>NCTHENPRINT"[145][145]"         :GOTO622
  121. 648 IFM<=NCTHENGOSUB8100:GOTO650
  122. 649 IFMT$=""THENPRINT"[145][145]":GOTO622
  123. 650 PRINT"[158]YOUR TOTAL GOLD IS";G
  124. 655 GOSUB15000
  125. 670 IFM<=XTHEN705
  126. 675 IFRND(1)<.4THENGOSUB2000:YP=INT(.5*YP):YS=INT(.5*YS):GOTO250
  127. 691 GOSUB2060:POKESV+21,0:POKESV+21,1:RC(LR)=266240:GOTO319
  128. 705 IFVZ>0THEN800
  129. 710 IFM<>0ORLR<>1THEN1020
  130. 720 PRINT"[147][153]EXPERIENCE";E
  131. 721 PRINT"[159]SPEED =";YS;,"STRENGTH =";YP:CS=0
  132. 722 PRINT"[159]HOW MUCH EXPERIENCE TO BE":PRINT"ADDED TO SPEED ( 0 TO";E;")";
  133. 723 INPUTN2:IFE-N2<0THENPRINT"[145][145][145]":GOTO722
  134. 724 E=E-N2:YS=YS+N2
  135. 740 PRINT"[153]EXPERIENCE LEFT";E
  136. 752 PRINT"HOW MUCH EXPERIENCE TO BE":PRINT"ADDED TO STRENGTH ( 0 TO";E;")";
  137. 753 INPUTN2:IFE-N2<0THENPRINT"[145][145][145]":GOTO752
  138. 754 E=E-N2:YP=YP+N2
  139. 780 GOTO7000
  140. 800 POKE53280,7:F=1:IFRU=3THEN1000
  141. 801 IFGSANDSB>0THENYH=INT(RND(1)*(YP+YP)):VH=INT(RND(1)*VZ):SB=SB-1:GOTO814
  142. 802 IFNS>0THENYH=INT(RND(1)*(YP+(YP*.50))):VH=INT(RND(1)*VZ):NS=NS-1:GOTO814
  143. 803 IFCR>0THENYH=INT(RND(1)*(YP+(YP*.25))):VH=INT(RND(1)*VZ):CR=CR-1:GOTO814
  144. 813 YH=INT(RND(1)*YP):VH=INT(RND(1)*VZ)
  145. 814 IFM>0THEN1000
  146. 830 IFYH>VZTHENYH=VZ
  147. 840 IFVH>YPTHENVH=YP
  148. 850 IFRND(1)*YS>RND(1)*VSTHEN880
  149. 860 GOSUB2270
  150. 862 YP=YP-VH:VZ=VZ-INT(.5*YH)
  151. 880 GOSUB2240:VZ=VZ-YH:YP=YP-INT(.5*VH)
  152. 881 VZ=VZ-YH:YP=YP-INT(.5*VH)
  153. 900 E=E+2*YH
  154. 910 IFVZ<=0THENVZ=0:GOSUB2260:RC(LR)=RC(LR)-2
  155. 914 IFSB>0THENSB=SB-1
  156. 915 IFVZ<=0THEN250
  157. 920 GOSUB2250:GOTO250
  158. 1000 IFRND(1)*YS>RND(1)*VSANDRU=3THENGOSUB2280:RU=2:GOTO1070
  159. 1007 IFRU<>3THEN1011
  160. 1009 IFFD>0THENFD=FD-1:YP=YP-(INT(.2*VZ))/2:VB=VB-1:GOTO1011
  161. 1010 YP=YP-INT(.2*VZ):VB=VB-1
  162. 1011 IFVB=0THENYP=0:GOTO310
  163. 1012 GOTO1070
  164. 1020 IFT=0THEN1070
  165. 1030 G1=INT(RND(1)*T*LR*D)+1
  166. 1040 IFX(1)*X(12)=1ANDRND(1)<.4THENG1=0
  167. 1049 G=G+G1:RC(LR)=RC(LR)-512
  168. 1052 YM=YM+(G1/2)
  169. 1060 E=E+G1
  170. 1070 IFAR(M)=1ORM=OWTHENLR=M:AR=0:E=E+D:B(LR)=1:GOTO250
  171. 1080 GOTO250
  172. 1200 IFWC=1THEN1250
  173. 1204 FORDC=1TO10:GOSUB16500
  174. 1205 PRINTTAB(9)"[155][213][209][201][157][157][157][157][157][202][209][203]"
  175. 1206 PRINTTAB(9)"[202][209][203][157][157][157][157][157][213][209][201]":DS=TI
  176. 1207 IFTI<DS+4THEN1207
  177. 1208 IFTI>DS+4THEN1209
  178. 1209 NEXTDC:PRINT""
  179. 1210 GOSUB1300:RETURN
  180. 1250 FORDC=1TO10:GOSUB16500
  181. 1255 PRINT"[155]",,,"[157][157][213][209][201][157][157][157][157][202][209][203]"
  182. 1256 PRINT"[155]",,,"[157][157][202][209][203][157][157][157][157][213][209][201]":DS=TI
  183. 1257 IFTI<DS+5THEN1257
  184. 1258 IFTI>DS+5THEN1259
  185. 1259 NEXTDC:PRINT""
  186. 1260 GOSUB1300:RETURN
  187. 1300 IFFD>0THENFD=FD-1:RETURN
  188. 1302 IFSB>0THENSB=SB-1:RETURN
  189. 1303 IFCR>0THENCR=CR-1:RETURN
  190. 1304 IFNS>0THENNS=NS-1:RETURN
  191. 1305 IFGM>0THENGM=GM-1:RETURN
  192. 1306 IFMR>0THENMR=MR-1:RETURN
  193. 1307 IFGS>0THENGS=GS-1:RETURN
  194. 1308 RETURN
  195. 1500 IFWC=1THEN1550
  196. 1504 FORDC=1TO6:GOSUB16700
  197. 1505 PRINT"","[146][155][193][213][201][213]"
  198. 1506 PRINT,"[146][155][202][203][202][203]"
  199. 1507 PRINT"","[146][155][193][213][201][201]"
  200. 1508 PRINT,"[146][155][202][203][202][203]":DS=TI
  201. 1510 IFTI<DS+4THEN1510
  202. 1511 IFTI>DS+4THEN1518
  203. 1518 NEXTDC:GOSUB1300:POKEX9,128:RETURN
  204. 1550 FORDC=1TO6:GOSUB16700
  205. 1555 PRINT"",,,"[146][155][193][213][201][213]"
  206. 1556 PRINT,,,"[146][155][202][203][202][203]"
  207. 1557 PRINT"",,,"[146][155][193][213][201][201]"
  208. 1558 PRINT,,,"[146][155][202][203][202][203]":DS=TI
  209. 1560 IFTI<DS+4THEN1560
  210. 1561 IFTI>DS+4THEN1568
  211. 1568 NEXTDC:GOSUB1300:POKEX9,128:RETURN
  212. 2000 YM=YM-1:PRINT"",,,"[157][157][157][157]BACKFIRE"
  213. 2001 GOSUB14600
  214. 2002 RETURN
  215. 2020 PRINT"ZOMBIE HURT YOU"
  216. 2029 RETURN
  217. 2030 PRINT"TREMOR":RETURN
  218. 2040 PRINT"",,"YOU'VE BEEN GASSE"
  219. 2046 POKE2023,4:RETURN
  220. 2060 GOSUB16500:POKE53280,1:POKE53281,1
  221. 2062 POKE1464,18:POKE1504,9:POKE1544,14:POKE1584,7:POKE1624,32:POKE1664,23
  222. 2063 POKE53280,7:POKE53281,0
  223. 2064 POKE1704,15:POKE1744,18:POKE1784,11:POKE1824,5:POKE1864,4:RETURN
  224. 2240 POKE53281,8:PRINT"YOU ATTACK":POKE53281,2:POKE53281,0
  225. 2245 RETURN
  226. 2250 POKE53281,8
  227. 2252 POKE1383,22:POKE1423,1:POKE1463,13:POKE1503,16:POKE1543,9:POKE1583,18
  228. 2254 POKE1623,5:POKE1663,32
  229. 2256 POKE53281,2
  230. 2257 POKE53281,0
  231. 2258 POKE1703,1:POKE1743,12:POKE1783,9:POKE1823,22:POKE1863,5:RETURN
  232. 2260 POKE53281,8
  233. 2261 POKESV+21,0:POKESV+21,1
  234. 2262 POKE1383,22:POKE1423,1:POKE1463,13:POKE1503,16:POKE1543,9:POKE1583,18
  235. 2263 POKE53281,2
  236. 2264 POKE1623,5:POKE1663,32
  237. 2266 POKE1703,11:POKE1743,9:POKE1783,12:POKE1823,12:POKE1863,5:POKE1903,4
  238. 2267 POKE53281,0
  239. 2268 RETURN
  240. 2270 POKE53281,8:PRINT"VAMPIRE ATTACKS":POKE53281,2:POKE53281,0
  241. 2278 RETURN
  242. 2280 PRINT"",,"ESCAPED":RETURN
  243. 3000 POKESV+0,100:POKESV+1,200:RETURN
  244. 3050 PRINT"[147]MAGICAL ORB IS ON THIS LEVEL":FORZZ=1TO500:NEXTZZ:GOTO246
  245. 3100 PRINT "[147]":POKE53281,1:GOSUB3200:GOTO3140
  246. 3120 POKE1444,81:POKE1445,81:POKE1521,81:POKE1561,81:POKE1443,81:POKE1446,81
  247. 3121 FORDC=1521TO1528:POKEDC,81:NEXTDC
  248. 3122 POKE1568,81                  
  249. 3123 FORDC=1482TO1487:POKEDC,81:NEXTDC
  250. 3124 FORDC=1561TO1568:POKEDC,81:NEXTDC
  251. 3125 FORDC=1602TO1607:POKEDC,81:NEXTDC
  252. 3126 POKE1644,81:POKE1645,81:POKE1643,81:POKE1646,81
  253. 3127 POKE55796,7:POKE55797,7:POKE55836,7:POKE55837,7
  254. 3128 POKE1570,99:POKE1572,99                
  255. 3129 POKE1559,99:POKE1557,99                                             
  256. 3130 POKE1364,103:POKE1284,103                                            
  257. 3131 POKE1725,101:POKE1805,101
  258. 3132 POKE1680,78:POKE1690,77:POKE1440,77:POKE1450,78:RETURN
  259. 3140 GOSUB8300:POKE53281,12:GOSUB3300
  260. 3150 VP=OC*OL*INT((10*RND(1)))
  261. 3155 PRINT"[144]VAMPIRE'S STRENGTH";VP
  262. 3156 PRINT"YOUR STRENGTH";YP
  263. 3157 PRINT"ENTER AN <A> TO FIGHT VAMPIRE";:INPUTFV$:GOSUB14500:GOSUB14500
  264. 3160 YH=INT(RND(1)*YP):VH=INT(RND(1)*VP):WO=YH-VH:IFWO<=0THEN3175
  265. 3162 PRINT"[147][144]CONGRATULATIONS!!! YOU NOW POSSESS THE"
  266. 3163 PRINT"POWERS OF THE MAGICAL ORB!!!"
  267. 3164 PRINT"THIS IS  THE END OF COUNT DAMION AND HISCOMPANIONS":GOSUB3120
  268. 3170 POKESV+21,0:POKESV+21,1
  269. 3174 POKE53280,14:POKE53281,12:GOSUB16805:GOTO7500
  270. 3175 POKE53280,0:YP=0:GOTO310
  271. 3200 PRINT"[206]                                     "
  272. 3211 POKE56295,2:POKE2023,77
  273. 3215 PRINT"[205]                                      [206]";
  274. 3216 PRINT" [205]                                    [206] ";
  275. 3217 PRINT"  [205]                                  [206]  ";
  276. 3218 PRINT"   [205]                                [206]   ";
  277. 3219 PRINT"    [205]                              [206]    ";
  278. 3220 PRINT"     [205]                            [206]     ";
  279. 3221 PRINT"      [205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206]      ";
  280. 3223 PRINT"      [167]                          [165]      ";
  281. 3224 PRINT"      [167]                          [165]      ";
  282. 3225 PRINT"      [167]                          [165]      ";
  283. 3226 PRINT"      [167]                          [165]      ";
  284. 3227 PRINT"      [167]                          [165]      ";
  285. 3228 PRINT"      [167]                          [165]      ";
  286. 3229 PRINT"      [167]                          [165]      ";
  287. 3230 PRINT"      [167]                          [165]      ";
  288. 3231 PRINT"      [167]                          [165]      ";
  289. 3232 PRINT"      [167]                          [165]      ";
  290. 3234 PRINT"      [167]                          [165]      ";
  291. 3235 PRINT"      [206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]      ";
  292. 3236 PRINT"     [206]                            [205]     ";
  293. 3237 PRINT"    [206]                              [205]    ";
  294. 3238 PRINT"   [206]                                [205]   ";
  295. 3239 PRINT"  [206]                                  [205]  ";
  296. 3240 PRINT" [206]                                    [205] ";:GOSUB3120
  297. 3299 RETURN
  298. 3300 FORDC=1TO20
  299. 3305 PRINT"[144][213][209][201][202][209][203][213][209][201][202][209][203]"
  300. 3310 PRINT"[202][209][203][213][209][201][202][209][203][213][209][201]":GOSUB16500
  301. 3320 PRINT"[193][213][201][213]"
  302. 3321 PRINT"[202][203][202][203]"
  303. 3322 PRINT"[193][213][201][201]"
  304. 3323 PRINT"[202][203][202][203]"
  305. 3324 PRINT"[193][213][201][213]"
  306. 3325 PRINT"[202][203][202][203]"
  307. 3326 PRINT"[193][213][201][201]"
  308. 3327 PRINT"[202][203][202][203]"
  309. 3328 PRINT"[193][213][201][213]"
  310. 3329 PRINT"[202][203][202][203]"
  311. 3330 PRINT"[193][213][201][201]"
  312. 3331 PRINT"[202][203][202][203]"
  313. 3350 NEXTDC:RETURN
  314. 3600 PRINT"[147]MAGICAL ORB IS IN CHAMBER";OC;"ON LEVEL";OL:GOTO320
  315. 4100 POKE53280,6:PRINT"[147]"
  316. 4101 RESTORE:POKE53281,6
  317. 4105 PRINT"YOU CAN RELAX NOW, FOR YOU ARE SAFLEY   STANDING OUTSIDE THE CASTLE";
  318. 4110 PRINT" AHEAD OF YOUIS A SLEEZY LOOKING CHARACTER, AND HE   ASKS:"
  319. 4120 PRINT"WANT TO BUY SOME SUPPLIES";
  320. 4125 INPUT" (Y/N)";AW$
  321. 4130 IFAW$="N"THENRETURN
  322. 4135 IFAW$<>"Y"THEN4120
  323. 4140 PRINT"[147]I HAVE SOME:"
  324. 4141 PRINT"  ITEM                    COST":PRINT
  325. 4142 PRINT"WOODEN STAKES           5 GOLD PIECES"
  326. 4143 PRINT"GUNS                   20 GOLD PIECES"
  327. 4144 PRINT"BULLETS                 5 GOLD PIECES"
  328. 4145 PRINT"CROSSES                 2 GOLD PIECES"
  329. 4146 PRINT"FOOD                    5 GOLD PIECES"
  330. 4147 PRINT"GAS MASKS              10 GOLD PIECES"
  331. 4149 PRINT"MIRRORS                10 GOLD PIECES"
  332. 4155 PRINT
  333. 4160 PRINT"YOU HAVE";G;"PIECES OF GOLD:"
  334. 4164 PRINT"          TO BUY        ENTER":PRINT
  335. 4165 PRINT"          STAKES         1"
  336. 4170 PRINT"          GUNS           2"
  337. 4175 PRINT"          BULLETS        3"
  338. 4180 PRINT"          CROSSES        4"
  339. 4181 PRINT"          FOOD           5"
  340. 4182 PRINT"          GAS MASK       6"
  341. 4185 PRINT"          MIRRORS        7";
  342. 4186 INPUTBW
  343. 4190 IFBW=4THEN4230
  344. 4191 IFBW=5THEN4240
  345. 4192 IFBW=1THEN4200
  346. 4193 IFBW=6THEN4250
  347. 4194 IFBW=2THEN4210
  348. 4195 IFBW=7THEN4270
  349. 4196 IFBW=3THEN4220
  350. 4198 IFBW>7THEN4140
  351. 4199 IFBW<1THEN4140
  352. 4200 PRINT"[147]HOW MANY STAKES DO YOU WANT";
  353. 4202 INPUTNS
  354. 4203 IFNS>G/5THENPRINT"NOT ENOUGH GOLD!":GOTO4200
  355. 4204 G=G-(NS*5)
  356. 4205 PRINT"YOU HAVE";G;"PIECES OF GOLD LEFT, BUY"
  357. 4206 PRINT"MORE WEAPONS (Y/N)";
  358. 4207 INPUTMW$:IFMW$="N"THEN7000
  359. 4208 IFMW$="Y"THEN4140
  360. 4209 IFMW$<>"Y"THENPRINT"[145][145]":GOTO4206
  361. 4210 PRINT"[147]HOW MANY GUNS DO YOU WANT";
  362. 4212 INPUTGS
  363. 4213 IFGS>G/20THEN PRINT"NOT ENOUGH GOLD!":GOTO4210
  364. 4214 G=G-(GS*20):GOTO4206
  365. 4220 PRINT"[147]HOW MANY BULLETS DO YOU WANT";
  366. 4222 INPUTSB
  367. 4223 IFSB>G/5 THEN PRINT"NOT ENOUGH GOLD!":GOTO4220
  368. 4224 G=G-(SB*5):GOTO4206
  369. 4230 PRINT"[147]HOW MANY CROSSES DO YOU WANT";
  370. 4232 INPUTCR
  371. 4233 IFCR>G/2THENPRINT"NOT ENOUGH GOLD!":GOTO4230
  372. 4234 G=G-(CR*2):GOTO4206
  373. 4240 PRINT"[147]HOW MUCH FOOD DO YOU WANT";
  374. 4242 INPUTFD
  375. 4243 IFFD>G/5THENPRINT"NOT ENOUGH GOLD!":GOTO4240
  376. 4244 G=G-(FD*5):GOTO4206
  377. 4250 PRINT"[147]HOW MANY GAS MASKS DO YOU WANT";
  378. 4252 INPUTGM
  379. 4253 IFGM>G/10THEN PRINT"NOT ENOUGH GOLD!":GOTO4250
  380. 4254 G=G-(GM*10):GOTO4206
  381. 4270 PRINT"[147]HOW MANY MIRRORS DO YOU WANT";
  382. 4272 INPUTMR
  383. 4273 IFMR>G/5THENPRINT"NOT ENOUGH GOLD!":GOTO4260
  384. 4274 G=G-(MR*5):GOTO4206
  385. 4500 INPUT"[147]HOW MANY CHAMBERS PER LEVEL (5-28)";NC
  386. 4501 IFNC<2THENPRINT"[145][145]":GOTO4500
  387. 4503 IFNC=0THENPRINT"[145][145]":GOTO4500
  388. 4505 IFNC>28THENPRINT"[145][145]":GOTO4500
  389. 4506 PRINT"ARE YOU 1 - NOVICE"
  390. 4507 PRINT"        2 - EXPERIENCED"
  391. 4508 PRINT"        3 - EXPERT   1";:INPUT"[157][157][157]";DL
  392. 4509 PRINT"[158]                                        ";
  393. 4510 PRINT" MAGICAL ORB [146]";
  394. 4511 PRINT"[159] WILL BE ON LEVEL";:OL=5*DL:PRINTOL;"[158]_ _ _ _";
  395. 4512 PRINT"[158]                                        ";
  396. 4514 OC=INT(100*RND(1)):IFOC>NCTHEN4514
  397. 4515 IFOC<2THEN4514
  398. 4517 IFNC>10THENPRINT"WAIT ONE MINUTE PLEASE "
  399. 4518 IFNC>10THENPRINT"WHILE I CREATE CASTLE"
  400. 4520 RETURN
  401. 6000 FORDC=1TO10
  402. 6010 PRINT"GOLD"
  403. 6011 PRINT"[158] [163][163][163]"
  404. 6012 IFTI<DS+40THEN6012
  405. 6013 IFTI>DS+40THENNEXT:RETURN
  406. 6200 FORDC=1TO10
  407. 6210 PRINT"",,,"FOO":POKE2023,4
  408. 6211 PRINT"",,,"[158][163][163][163]":POKE2023,160
  409. 6220 IFTI<DS+40THEN6220
  410. 6221 IFTI>DS+40THENNEXT:RETURN
  411. 6300 BE=VAL(TI$):IFBE/1000>=1THENE=E+100:GOSUB16500:TI$="000000":RETURN
  412. 6303 RETURN
  413. 7000 POKE53281,0
  414. 7010 PRINT"[147]YOUR STATUS             YOUR SUPPLIES":PRINT:POKE53280,7
  415. 7015 IFYP<=0ORYS<=0THEN310
  416. 7050 PRINT"YOUR EXPERIENCE IS";E;TAB(24)   "GUNS       ";GS
  417. 7100 PRINT"YOUR STRENGTH IS  ";INT(YP);TAB(24)  "BULLETS    ";SB
  418. 7150 PRINT"YOUR SPEED IS     ";INT(YS);TAB(24)  "CROSSES    ";CR
  419. 7200 PRINT"YOUR MORALE IS    ";INT(YM);TAB(24)  "WOOD STAKES";NS
  420. 7250 PRINT"YOUR TOTAL GOLD IS";G ;TAB(24)  "GAS MASKS  ";GM
  421. 7265 PRINTTAB(24)"MIRRORS    ";MR
  422. 7270 PRINTTAB(24)"FOOD       ";FD
  423. 7275 PRINT"VAMPIRE'S STATUS"
  424. 7280 PRINT"VAMPIRE'S SPEED";VS
  425. 7282 PRINT"VAMPIRE'S STRENGTH";VZ:PRINT
  426. 7300 PRINT"ENTER"
  427. 7301 PRINT"1     TO CONTINUE"
  428. 7302 PRINT"2     FOR HELP"
  429. 7303 PRINT"3     TO BUY WEAPONS AND MATERIALS"
  430. 7304 PRINT"      (CHAMBER 1 ONLY)"
  431. 7306 PRINT"4     TO TRADE EXPERIENCE  1"
  432. 7307 PRINT"      (CHAMBER 1 ONLY)"
  433. 7309 INPUT"[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";ES$
  434. 7310 IFES$=""THENPRINT"[145][145]":GOTO7305
  435. 7312 IFES$="1"THEN7490
  436. 7314 IFES$="2"THEN40000
  437. 7316 IFES$="3"ANDLR=1THEN4100
  438. 7318 IFES$="4"ANDLR=1THEN720
  439. 7320 IFES$<>"4"THENPRINT"[145][145]":GOTO7306
  440. 7490 PRINT"[147]":POKESV+21,1:GOTO320
  441. 7500 PRINT"YOU FOUND";G;"PIECES OF GOLD."
  442. 7510 INPUT"PLAY AGAIN (Y/N)";E$
  443. 7520 IFE$="Y"THENPOKE53281,0:POKESV+21,0:RUN
  444. 7530 IFE$="N"THENPOKESV+21,0:END
  445. 7540 IFE$<>"N"THENPRINT"[145][145]":GOTO7510
  446. 8000 DATA0,0,0,0,20,0,0,85,0,0,233
  447. 8022 DATA0,3,165,0,0,101,0
  448. 8024 DATA0,168,0,0,40,0,0,40,0
  449. 8026 DATA128,252,0,179,255,0,12,252,192
  450. 8028 DATA0,252,48,0,252,8,0,84,0
  451. 8030 DATA0,204,0,0,204,0,0,195,0
  452. 8031 DATA0,192,192,0,192,16,1,64,64
  453. 8033 DATA0,5,0,0,21,64,0,26,192,0,22,128,0,22,160,0,6,64,0,90,130,0,22,6,0,21
  454. 8034 DATA86,0,85,80,1,85,64,5,85,64,21,85,64,85,69,64,85,15,192,84,4,64,80,4,64
  455. 8035 DATA64,4,64,0,16,64,0,192,64,0,48,240
  456. 8037 DATA1,64,0,5,80,0,5,224,0,6,160,0,5,168,0,5,160,0,6,128,0,2,160,0,2
  457. 8038 DATA128,0,3,240,0,3,255,250,3,255,250,3,240,,3,240,0,1,80,0
  458. 8039 DATA3,240,0,3,48,0,12,48,0,48,48,0,64,48,0,16,20,0
  459. 8050 SV=53248:POKESV+21,0:POKESV+23,7:POKESV+29,0
  460. 8051 POKESV+28,7:POKE2040,13:POKE2041,14:POKE2042,15
  461. 8055 POKESV+37,0:POKESV+39,10:POKESV+38,6:POKESV+40,2:POKESV+41,13
  462. 8056 FORND=0TO62:READPY:POKE832+ND,PY:NEXT
  463. 8057 FORND=0TO62:READPV:POKE896+ND,PV:NEXT
  464. 8058 FORND=0TO62:READPZ:POKE960+ND,PZ:NEXT
  465. 8060 RETURN
  466. 8100 POKESV+21,1
  467. 8102 WR=WR+1
  468. 8103 IFWR=2THENWR=0:GOTO8200
  469. 8105 WC=1:FORMP=1TO20STEP4:GOSUB16000
  470. 8125 POKESV,97:POKESV+1,200-MP:POKESV,96:POKESV+1,199-MP
  471. 8130 NEXTMP:POKESV+23,0:FORMP=21TO35STEP2
  472. 8132 GOSUB16000
  473. 8135 POKESV,97:POKESV+1,200-MP:POKESV,96:POKESV+1,199-MP:NEXTMP:POKESV+21,0
  474. 8139 FORMP=1TO10:GOSUB16000:NEXTMP:POKESV,255:POKESV+1,165:POKESV+21,1
  475. 8140 FORMP=1TO14STEP2:POKESV,255:POKESV+1,165+MP:POKESV,254:GOSUB16000
  476. 8145 POKESV+1,165+MP:NEXTMP:FORMP=22TO36STEP4:POKESV+23,7:POKESV,255
  477. 8147 GOSUB16000
  478. 8150 POKESV+1,165+MP:POKESV,254:POKESV+1,165+MP:NEXTMP
  479. 8190 RETURN
  480. 8200 WC=2
  481. 8202 FORMP=1TO20STEP4:GOSUB16000
  482. 8205 POKESV,255:POKESV+1,200-MP:POKESV,254:POKESV+1,199-MP
  483. 8210 NEXTMP:POKESV+23,0:FORMP=21TO35STEP2
  484. 8212 GOSUB16000
  485. 8215 POKESV,255:POKESV+1,200-MP:POKESV,254:POKESV+1,199-MP:NEXTMP:POKESV+21,0
  486. 8220 FORMP=1TO10:GOSUB16000:NEXTMP:POKESV,97:POKESV+1,165:POKESV+21,1
  487. 8225 FORMP=1TO14STEP2:POKESV,97:POKESV+1,165+MP:POKESV,96:POKESV+1,165+MP
  488. 8227 GOSUB16000
  489. 8230 NEXTMP:POKESV+23,7:FORMP=22TO36STEP4:POKESV,97
  490. 8232 GOSUB16000
  491. 8235 POKESV+1,165+MP:POKESV,96:POKESV+1,165+MP:NEXTMP:RETURN
  492. 8300 IFWC=1THEN8350
  493. 8310 POKESV+21,3:POKESV+2,70:POKESV+3,190:RETURN
  494. 8350 POKESV+21,3:POKESV+2,225:POKESV+3,190:RETURN
  495. 8400 IFWC=1THEN8450
  496. 8410 POKESV+21,5:POKESV+4,60 :POKESV+5,200:RETURN
  497. 8450 POKESV+21,5:POKESV+4,205:POKESV+5,200:RETURN
  498. 8500 IFWC=1THEN8550
  499. 8510 POKESV+21,7:POKESV+2,72:POKESV+3,185:POKESV+4,55:POKESV+5,200:RETURN
  500. 8550 POKESV+21,7:POKESV+2,225:POKESV+3,182:POKESV+4,205:POKESV+5,200:RETURN
  501. 11000 POKE56036,3:POKE1764,4:POKE56076,3:POKE1804,5
  502. 11001 POKE56116,3:POKE1844,19:POKE56156,3:POKE1884,3
  503. 11002 POKE56196,3:POKE1924,5:POKE56236,3:POKE1964,14
  504. 11003 POKE56276,3:POKE2004,4:RETURN
  505. 14000 POKE55915,13:POKE1643,7:POKE55955,13:POKE1683,1:POKE55995,13:POKE1723,19
  506. 14003 IFWC<>1THEN14100
  507. 14010 YM=YM-1
  508. 14020 GOSUB15000:PRINT"",,"[153][206]               [205][145][145][145]"
  509. 14030 GOSUB15000:PRINT,,"[153] [206]             [205] [145][145][145]"
  510. 14040 GOSUB15000:PRINT,,"[153] [167][163]           [163][165] [145][145][145]"
  511. 14050 GOSUB15000:PRINT,,"[153] [167][167][206]         [205][165][165] [145][145][145]"
  512. 14060 GOSUB15000:PRINT,,"[153] [167][167] [206]       [205] [165][165] [145][145][145]""
  513. 14070 [141]15000:[153],,"PRINT THENTHEN THENTAB(     TAB(FN FNFN """
  514. 14080 [142]
  515. 14100 [141]15000:[153]"PRINT(null)               (null)ONONON"
  516. 14120 [141]15000:[153]"PRINT (null)             (null) ONONON"
  517. 14130 [141]15000:[153]"PRINT THENTAB(           TAB(FN ONONON"
  518. 14140 [141]15000:[153]"PRINT THENTHEN(null)         (null)FNFN ONONON""
  519. 14150 GOSUB15000:PRINT"[153] [167][167] [206]       [205] [165][165] [145][145][145]""[145]"
  520. 14160 GOSUB15000:PRINT"[153] [167][167] [167][163]     [163][165] [165][165] """"
  521. 14200 [142]
  522. 14500 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272:PP[178]54275:PQ[178]54274
  523. 14510 [151]X9,128
  524. 14520 [151]V1,15:[151]X9,129:[151]ZX,16
  525. 14521 FV[178]FV[170]1:CF[178]CF[170]1
  526. 14522 [151]53281,8:[151]53280,0
  527. 14525 [139]FV[178]1[167][151]HH,1:[151]LL,187
  528. 14526 [139]FV[178]2[167][151]HH,17:[151]LL,37
  529. 14547 [151]53281,2:[151]53280,1
  530. 14548 [139]CF[178]10[167][151]X9,128:CF[178]0:[142]
  531. 14549 [139]FV[178]2[167]FV[178]0
  532. 14550 [137]14500
  533. 14600 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272:PP[178]54275:PQ[178]54274
  534. 14610 [151]X9,32
  535. 14620 [151]V1,15:[151]X9,65:[151]ZX,11
  536. 14621 FV[178]FV[170]1
  537. 14622 [151]53281,3:[129]DC[178]1[164]50:[130]
  538. 14625 [139]FV[178]1[167][151]HH,1:[151]LL,18
  539. 14647 [151]53281,4:[129]DC[178]1[164]50:[130]DC
  540. 14648 FV[178]0:[151]53281,0:[142]
  541. 15000 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272:PP[178]54275:PQ[178]54274
  542. 15002 W2[178]54290:A2[178]54291:H2[178]54287:L2[178]54286:P3[178]54289:P4[178]54288
  543. 15010 [151]W2,64:[151]X9,64
  544. 15020 [151]V1,15:[151]X9,65:[151]ZX,110:[151]PP,15:[151]PQ,15
  545. 15022 [151]W2,65:[151]A2,110:[151]P3,1:[151]P4,1
  546. 15040 [139]PN[178]0[167][151]HH,4:[151]LL,73
  547. 15041 [139]PN[178]1[167][151]HH,5:[151]LL,25
  548. 15042 [139]PN[178]2[167][151]HH,3:[151]LL,155
  549. 15043 [139]PN[178]3[167][151]HH,3:[151]LL,210
  550. 15044 [139]PN[178]0[167][151]H2,34:[151]L2,75
  551. 15045 [139]PN[178]1[167][151]H2,40:[151]L2,200
  552. 15046 [139]PN[178]2[167][151]H2,28:[151]L2,214
  553. 15047 [139]PN[178]3[167][151]H2,30:[151]L2,140
  554. 15048 [139]PN[178]4[167][151]H2,40:[151]L2,200
  555. 15049 [139]PN[178]4[167][151]HH,5:[151]LL,25
  556. 15090 PN[178]PN[170]1:DS[178]TI:[139]PN[178]4[167]PN[178]0
  557. 15095 [139]TI[179]DS[170]4 [167]15095
  558. 15096 [139]TI[177]DS[170]4 [167]15100
  559. 15100 [151]54278,0:[142]
  560. 16000 [151]X9,128
  561. 16010 V1[178]54296:X9[178]54276:ZX[178]54277:H9[178]54273:L9[178]54272
  562. 16020 [151]V1,15:[151]X9,129:[151]ZX,16:[151]W2,64
  563. 16030 [151]X9,128:[151]X9,129:[151]H9,13:[151]L9,156:DS[178]TI
  564. 16032 [139]TI[179]DS[170]4[167]16032
  565. 16033 [139]TI[177]DS[170]4[167][142]
  566. 16500 [151]X9,16
  567. 16510 V1[178]54296:X9[178]54276:ZX[178]54277:H9[178]54273:L9[178]54272
  568. 16520 [151]V1,15:[151]X9,17:[151]ZX,16
  569. 16530 [151]H9,244:[151]L9,103
  570. 16550 [142]
  571. 16700 [151]X9,128
  572. 16710 V1[178]54296:X9[178]54276:ZX[178]54277:H9[178]54273:L9[178]54272
  573. 16720 [151]V1,15:[151]X9,129:[151]ZX,15
  574. 16730 [151]H9,129:[151]L9,120
  575. 16750 [142]
  576. 16805 [129]DC[178]1[164]22:[151]X9,16
  577. 16810 V1[178]54296:X9[178]54290:ZX[178]54291:H9[178]54287:L9[178]54286
  578. 16820 [151]V1,15:[151]X9,17:[151]ZX,31
  579. 16821 [135]H:[135]L:[135]D:[151]HP,H:[151]L9,L
  580. 16854 [129]X[178]D[171]100[164]D[171]70:[130]X:[151]X9,16:[130]DC:[142]
  581. 17000 TI$[178]"000000"
  582. 17001 [151]SV[170]21,0:[151]53281,12:[151]53280,0
  583. 17505 [151]W2,64:[151]X9,32:[139]T[178]85[167]311
  584. 17510 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272
  585. 17520 [151]V1,15:[151]X9,33:[151]ZX,191
  586. 17526 [135]H:[135]L:[135]T
  587. 17528 [151]X9,32:[151]X9,33:[151]HH,H:[151]LL,L
  588. 17529 DS[178]TI
  589. 17530 [139]TI[179]DS[170]T [167]17530
  590. 17531 [139]TI[177]DS[170]T [167]17505
  591. 17532 [131]12,216,40,12,216,40,17,37,80,12,216,40,17,37, 40,21,154,80
  592. 17533 [131]12,216,40,17,37,40,21,154,80,12,216,40,17,37, 40,21,154,80
  593. 17534 [131]12,216,40,17,37,40,21,154,80,17,37,40,21,154, 40,25,177,80
  594. 17536 [131]21,154,40,17,37,40,12,216,80
  595. 17540 [131]12,216,40,12,216,40,17,37,85,-1,-1,-1,-1,-1,-1
  596. 17550 [137]17505
  597. 20000 DS[178]TI
  598. 20001 [139]TI[179]DS[170]50[167]20001
  599. 20002 [139]TI[177]DS[170]50[167]20006
  600. 20006 [153]"LOAD"
  601. 20050 [153]"SYS TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(    TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  602. 20101 [151]2023,224:[151]56295,7
  603. 20109 DS[178]TI
  604. 20110 [139]TI[179]DS[170]50[167]20110
  605. 20111 [139]TI[177]DS[170]50[167]20112
  606. 20112 [153]"SYS TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO    TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO ";
  607. 20113 [151]2023,224:[151]56295,7
  608. 20120 [153]"THEN(null)               (null)SYSFN  THEN(null)               (null)SYSFN";
  609. 20122 [153]"THEN (null)             (null) SYSFN  THEN (null)             (null) SYSFN";
  610. 20124 [153]"THEN THENLISTTO           TOFN SYSFN  THEN THENLISTTO           TOFN SYSFN";
  611. 20126 [153]"THEN THENLISTTHEN(null)         (null)FNFN SYSFN  THEN THENLISTTHEN(null)         (null)FNFN SYSFN";
  612. 20128 [153]"THEN THENLISTTHEN (null)       (null) FNFN SYSFN  THEN THENLISTTHEN (null)       (null) FNFN SYSFN";
  613. 20130 [153]"THEN THENLISTTHEN THENTO     TOFN FNFN SYSFN  THEN THENLISTTHEN THENTO     TOFN FNFN SYSFN";
  614. 20132 [153]"THEN THENLISTTHEN THENPRINT#THEN(null)   (null)FNLISTFN FNFN SYSFN  THEN THENLISTTHEN THENPRINT#THEN(null)   (null)FNLISTFN FNFN SYSFN";
  615. 20134 [153]"THEN THENLISTTHEN THENPRINT#THENTHENSTOPTAB(TAB(TAB(PRINT#FNFNLISTFN FNFN SYSFN  THEN THENLISTTHEN THENPRINT#THENTHENSTOPTAB(TAB(TAB(PRINT#FNFNLISTFN FNFN SYSFN";
  616. 20136 [153]"THEN THENLISTTHEN THENPRINT#THENTHENSTOPTOTOTOPRINT#FNFNLISTFN FNFN SYSFN  THEN THENLISTTHEN THENPRINT#THENTHENSTOPTOTOTOPRINT#FNFNLISTFN FNFN SYSFN";
  617. 20138 [153]"THEN THENLISTTHEN THENPRINT#THEN(null)   (null)FNLISTFN FNFN SYSFN  THEN THENLISTTHEN THENPRINT#THEN(null)   (null)FNLISTFN FNFN SYSFN";
  618. 20140 [153]"THEN THENLISTTHEN THENTAB(     TAB(FN FNFN SYSFN  THEN THENLISTTHEN THENTAB(     TAB(FN FNFN SYSFN";
  619. 20142 [153]"THEN THENLISTTHEN (null)       (null) FNFN SYSFN  THEN THENLISTTHEN (null)       (null) FNFN SYSFN";
  620. 20144 [153]"THEN THENLISTTHEN(null)         (null)FNFN SYSFN  THEN THENLISTTHEN(null)         (null)FNFN SYSFN";
  621. 20146 [153]"THEN THENLISTTAB(           TAB(FN SYSFN  THEN THENLISTTAB(           TAB(FN SYSFN";
  622. 20148 [153]"THEN (null)             (null) SYSFN  THEN (null)             (null) SYSFN";
  623. 20150 [153]"THEN(null)               (null)SYSFN  THEN(null)               (null)SYSFN";
  624. 20160 [153]"SYS TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(    TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  625. 22015 [142]
  626. 40000 [151]53280,0:[153]"PRINTLOAD    SO YOU THINK YOU NEED SOME HELP!"
  627. 40001 [153]"HERE ARE A FEW TIPS TO HELP YOU SURVIVE"
  628. 40005 [153]"YOUR VISIT IN THISCLOSEFRIENDLY OLD CASTLE"
  629. 40010 [153]"1.   EXPLORE LOW NUMBERED ROOMS FIRST!!"
  630. 40015 [153]"     (VAMPIRES ARE WEAKER IN LOW ROOMS)"
  631. 40020 [153]"2.   USE THE MAGIC RING SPARINGLY!!"
  632. 40025 [153]"     (IT IS RISKY TO USE, AND CAN COST"
  633. 40026 [153]"     YOU VALUABLE SPEED AND STRENGTH)"
  634. 40030 [153]"3.   CHECK YOUR STATUS PERIODICALLY."
  635. 40040 [153]"4.   DON'T DESCEND UNLESS YOU HAVE TO."
  636. 40045 [141]40050:[137]40060
  637. 40050 [141]15000:[153]"PRINTPRESS RETURNWAIT TO CONTINUEOPEN";
  638. 40052 [133]HC$:[139]HC$[178]""[167][141]15000:[142]
  639. 40054 [139]HC$[179][177]""[167][153]"ONON":[137]40050
  640. 40060 [153]"LOAD5.   TRY TO GATHER ALL GOLD ON EACH"
  641. 40062 [153]"     LEVEL BEFORE YOU DESCEND."
  642. 40070 [153]"6.   WATCH YOUR HEARTS, IF YOU GET"
  643. 40072 [153]"     DOWN TO ONE, YOU BETTER HEAD HOME."
  644. 40080 [153]"7.   TRADE OFTEN, KEEP YOUR SPEED AND"
  645. 40082 [153]"     STRENGTH HIGH FOR BATTLE."
  646. 40090 [153]"8.   BUY AS MANY DIFFERNT ITEMS AS YOU"
  647. 40092 [153]"     CAN, TO PROTECT YOU AGAINST AS"
  648. 40094 [153]"     MANY DIFFERENT DANGERS AS POSSIBLE"
  649. 40100 [141]40050:[151]53280,7:[137]320
  650.